home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dbapg.arc / CHECKDAT.PRG < prev    next >
Encoding:
Text File  |  1984-08-12  |  2.0 KB  |  60 lines
  1. * Program.: CHECKDAT.PRG
  2. * Author..: Luis A. Castro
  3. * Date....: 10/24/83, 11/20/83, 01/19/84
  4. * Notice..: Copyright 1983 & 1984, Ashton-Tate, All Rights Reserved.
  5. * Version.: dBASE II, version 2.4x
  6. * Notes...: Demonstrates how to use JUL2CAL and CAL2JUL,
  7. *           so as to LIS╘ account≤ 30¼ 60¼ anΣ 9░ day≤ olΣ
  8. *           oε thσ date field oµ ß datafile« 
  9. * Local...: day30, day60, day90, mdate, julian, mjulian,
  10. *           isjulian, filename, field:name
  11. * 
  12. SET TALK OFF
  13. *
  14. * ---Get system date and convert to julian date.
  15. STORE DATE() TO mdate
  16. DO Cal2jul
  17. STORE julian TO mjulian
  18. *
  19. * ---Get 30-day-old calendar date into YY/MM/DD format.
  20. STORE mjulian - 30 TO julian
  21. DO Jul2cal
  22. STORE $(mdate,7,2) + "/" + $(mdate,1,5) TO day30
  23. *
  24. * ---Get 60-day-old calendar date into YY/MM/DD format.
  25. STORE mjulian - 60 TO julian
  26. DO Jul2cal
  27. STORE $(mdate,7,2) + "/" + $(mdate,1,5) TO day60
  28. *
  29. * ---Get 90-day-old calendar date into YY/MM/DD format.
  30. STORE mjulian - 90 TO julian
  31. DO Jul2cal
  32. STORE $(mdate,7,2) + "/" + $(mdate,1,5) TO day90
  33. *
  34. ERASE
  35. @ 2, 0 SAY "LIST accounts 30, 60, and 90 days old.
  36. @ 2,72 SAY DATE()
  37. @ 3, 0 SAY "========================================"
  38. @ 3,40 SAY "========================================"
  39. ACCEPT "Enter data filename " TO filename
  40. ACCEPT "Enter date field:name " TO field:name
  41. USE &filename
  42. *
  43. * ---Convert the field:name's MM/DD/YY format to YY/MM/DD.
  44. ? "Accounts 30 to 60 days old"
  45. LIST FOR $(&field:name,7,2)+"/"+$(&field:name,1,5) <  day30 .AND.;
  46.          $(&field:name,7,2)+"/"+$(&field:name,1,5) >= day60
  47. ?
  48. ? "Accounts 60 to 90 days old"
  49. LIST FOR $(&field:name,7,2)+"/"+$(&field:name,1,5) <  day60 .AND.;
  50.          $(&field:name,7,2)+"/"+$(&field:name,1,5) >= day90
  51. ?
  52. ? "Accounts over 90 days old"
  53. LIST FOR $(&field:name,7,2)+"/"+$(&field:name,1,5) < day90
  54. USE
  55. RELEASE day30, day60, day90, mdate, julian, mjulian,;
  56.         isjulian, filename, field:name
  57. SET TALK ON
  58. RETURN 
  59. * EOF: CHECKDAT.PRG
  60.